;;;****************************************************************************
(DEFUN c:showcommands ()
  (IF check_for_doslib NIL (LOAD "check_for_doslib" "\nFile CHECK_FOR_DOSLIB.LSP not loaded! "))
  (check_for_doslib)
  (if (setq this_lisp (dos_getfilenav "Find Commands in an Autolisp File" (if this_lisp this_lisp (findfile "gpdgn.lsp")) "lsp" 4))
    (PROGN
      (setq open_lisp (open this_lisp "r"))
      (while (setq this_line (read-line open_lisp))
        (if (wcmatch (strcase this_line) "(DEFUN C:*")
          (progn
            (setq strcnt 10)
            (while (and (<= strcnt (strlen this_line))(not (wcmatch (substr this_line strcnt 1) " ")))
              (setq strcnt (1+ strcnt))
            )
            (princ "\n")
            (princ (substr this_line 10 (- strcnt 10)))
            (princ)
          )
        )
      )
      (close open_lisp)
    )
  )
  (princ)
)
